perm filename ELFDEF[PNT,HE]2 blob
sn#492441 filedate 1980-01-15 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 this file is used by both SAIL and PALX and is in one file to
C00006 ENDMK
Cā;
COMMENT ā this file is used by both SAIL and PALX and is in one file to
ease changes in definition . ! must be defined as COMMENT for SAIL
ā
; ! Codes for notes from 10 to 11
WAKEUP == 0 ; DEFINE WAKEUP = 0; !
LISTEN == 1 ; DEFINE LISTEN = 1; !
WORK == 2 ; DEFINE WORK = 2; !
GOSLEEP == 3 ; DEFINE GOSLEEP = 3; !
SAVE == 4 ; DEFINE SAVE = 4; !
; ! Codes for notes from 11 to 10
ASLEEP == WAKEUP ; DEFINE ASLEEP=WAKEUP; !
AWAKE == 100 ; DEFINE AWAKE='100; !
LISTNING == 101 ; DEFINE LISTENING = '101; !
WORKING == 102 ; DEFINE WORKING ='102 ; !
DONEWORKING == 103 ; DEFINE DONEWORKING = '103; !
RESTING == 103 ; DEFINE RESTING='103; !
GAVEUP == 104 ; DEFINE GAVEUP='104; !
SAVED == 105 ; DEFINE SAVED='105; !
; DEFINE MAP_OFFSET = "'160000"; ! Converts virtual addresses to physical ones
; DEFINE SAILID = "'160000"; ! The location telling what program it is
; ! NOTB10 The notebox from 11 to the 10 (byte address) defined in COMTAB
; DEFINE NOTB10 = "'160002"; ! The notebox from 11 to the 10 (byte address)
; DEFINE NOSTRT = "'160036"; ! When non-zero, POINTY does not restart the 11
; ! Used to bypass starting when there is arm code error
; ! NOTB11 The notebox from 10 to the 11 (byte address) defined in COMTAB
; DEFINE NOTB11 = "'160040"; ! The notebox from 10 to the 11 (byte address)
DATA
RETSTK==FPPTR
PBUFFSIZ == 3000 ; DEFINE PBUFFSIZ='3000; ! 3000 words of pcode
IBUFFSIZ == 1000 ; DEFINE IBUFFSIZ='1000; ! 1000 words of integer
FBUFFSIZ == 2000 ; DEFINE FBUFFSIZ='1000; ! 1000 words of fp numbers
IIII == .
.==NOTB11
.WORD 0 ; INTEGER ARRAY NOTBOX[1:8]; !
PCDBUF::.WORD 0 ; DEFINE PCDBUF="NOTBOX[2]"; ! pcode starting address
INTBUF::.WORD 0 ; DEFINE INTBUF="NOTBOX[3]"; ! intbuf starting address
FPBUF:: .WORD 0 ; DEFINE FPBUF="NOTBOX[4]"; ! fl pt buf starting address
INTPTR::.WORD 0 ; DEFINE INTPTR="NOTBOX[5]"; ! current pos of integer pointer
FPPTR:: .WORD 0 ; DEFINE FPPTR="NOTBOX[6]"; ! current pos of fp pointer
INTSIZ::.WORD 0 ; DEFINE INTSIZ="NOTBOX[7]"; ! size of integer buffer
FPSIZ:: .WORD 0 ; DEFINE FPSIZ="NOTBOX[8]"; ! size of fp buffer
.==IIII